home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #3 / utv1n3s1.d64 / paper sprites (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  2.8 KB  |  81 lines
  1. 10 poke53265,11:poke53280,0:poke53281,0:poke53269,0:poke53248,140:poke53249,220
  2. 20 poke53250,172:poke53251,220:poke53252,204:poke53253,220:poke53287,1
  3. 30 poke53285,7:poke53286,4:poke2040,128:poke2041,129:poke2042,130
  4. 40 poke53288,1:poke53289,1:poke56576,151:poke53269,7:poke650,128
  5. 50 pt=2040:dimpg(2):pg(0)=128:pg(1)=129:pg(2)=130
  6. 60 print"[147][158][208]aper [211]prites[156] by [202]on [208]erregaux ([195])1987
  7. 72 [153]"(NULL)ublished by (NULL)oftdisk (NULL)ublishing, right$nc.
  8. 80 print"[159][201][206][211][212][210][213][195][212][201][207][206][211]:":print"[163][163][163][163][163][163][163][163][163][163][163][163][163]
  9. 90 [153]"clra) open(NULL)se sys + waitopen and sys - waitopen keys to select three
  10. 100 print"   sprites to print.
  11. 132 [153]"clrb) open(NULL)ress sys (NULL)(NULL)atnlenval waitopen to toggle multicolor":[153]"   mode.
  12. 134 print"[156]c) [159][208]ress [158] [204] [146][159] to load sprite file.
  13. 140 [153]"clrd) open(NULL)ress sys (NULL)val(NULL)(NULL)(NULL)(NULL) waitopen for sprite printout.
  14. 150 print"[156]   [208]ress [158] [198]8 [146][156] to return to the [213]p[212]ime
  15. 160 [153][163]12)"(NULL)able of lenontentsopen
  16. 170 printtab(13)"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]":forx=1to3:printtab(13)"[221]            [221]":next
  17. 180 printtab(13)"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]":gosub290:poke53265,27
  18. 190 poke198,0:wait198,1:getx$
  19. 200 ifx$="+"thengosub470:gosub290:goto190
  20. 210 ifx$="-"thengosub480:gosub290:goto190
  21. 260 ifx$=chr$(13)then330
  22. 262 ifx$="l"then600
  23. 270 ifx$="[140]"thenprint"[147]":poke56576,151:poke53269,0:poke44,8:poke2048,0:clr:sys32772
  24. 272 ifx$=" "andpeek(53276)=0thenpoke53276,7:goto190
  25. 274 ifx$=" "andpeek(53276)=7thenpoke53276,0
  26. 280 goto190
  27. 290 poke pt,pg(0):pokept+1,pg(1):pokept+2,pg(2)
  28. 300 if(peek(56576)and3)<>3thenpoke53265,27:return
  29. 310 print"[156][208][193][199][197]:[158]"pg(0)"[157]   ":printtab(5)pg(1)"[157]   "
  30. 320 printtab(5)pg(2)"[157]   ":return
  31. 330 open4,4,7:close4:ifst<>0then190
  32. 340 poke53265,11:poke53281,14:poke53280,14
  33. 350 open4,4:open6,4,6
  34. 352 print#6,chr$(21);
  35. 360 a(0)=64*pg(0):a(1)=64*pg(1):a(2)=64*pg(2)
  36. 370 poke56576,151:poke53269,0:fory=0to20:w=0
  37. 380 forx=0to2:z=peek(a(w)+x+y*3):gosub420
  38. 390 next:w=w+1:bt$=bt$+"    ":ifw<4then380
  39. 392 ifpeek(53276)=7thengosub490
  40. 394 ifpeek(53276)=0thenbt$=left$(bt$,80)
  41. 400 print#4,bt$:bt$="":next:forx=1to3:print#4,chr$(13):next
  42. 405 close6:close4:poke53281,0:poke53280,0                                    
  43. 410 poke53269,7:poke53265,27:goto190
  44. 420 z$=""
  45. 430 fora=0to7:ifz/2=int(z/2)thenz$="."+z$:goto450
  46. 440 z$="[209]"+z$
  47. 450 z=int(z/2):next:bt$=bt$+z$
  48. 460 return
  49. 470 pg(0)=pg(0)+1and255:pg(1)=pg(1)+1and255:pg(2)=pg(2)+1and255:return
  50. 480 pg(0)=pg(0)-1and255:pg(1)=pg(1)-1and255:pg(2)=pg(2)-1and255:return
  51. 490 mc$="":form=1to80step2:xx$=mid$(bt$,m,2):ifxx$=".."thenzz$="..
  52. 500 [139]xx$[178]".(NULL)"[167]zz$[178]"spc(spc(
  53. 510 ifxx$="[209]."thenzz$="[214][214]
  54. 520 [139]xx$[178]"(NULL)(NULL)"[167]zz$[178]"  wait
  55. 530 ifxx$="  "thenzz$="  "
  56. 540 mc$=mc$+zz$:next:bt$=mc$:return
  57. 600 bk=peek(56576):poke56576,151:print"[147][156]([208]ress [158] _ [146][156] to exit)
  58. 602 [153]"ononononascile name: ";
  59. 610 z$[178]"":[151]198,0
  60. 620 [153]"clr waitcmd";:[129]x[178]1[164]55:[161]x$:[139]x$[179][177]""[167]640
  61. 630 [130]:[153]" cmd";:[129]x[178]1[164]55:[139]x$[178]""[167][130]:[137]620
  62. 640 [139]x$[178]"restore"[167]270
  63. 642 [139]x$[178]"_"[167][151]56576,bk:[137]800
  64. 650 [139]x$[178][199](13)[175][195](z$)[177]0[167][153]" ":[137]690
  65. 660 [139]x$[178][199](20)[175][195](z$)[177]0[167]z$[178][200](z$,[195](z$)[171]1):[153]"  cmdcmdcmd";:[137]620
  66. 670 [139]x$[179]" "[176]x$[177]"(NULL)"[167]620
  67. 675 [139] [198](x$)[177]141 [175] [198](x$)[179]192 [167]620
  68. 680 z$[178]z$[170]x$:[153]"open"x$;:[137]620
  69. 690 [159]15,8,15,"i0":[141]900:[159]2,8,2,"0:"[170]z$:[141]900
  70. 700 [160]2:[160]15:[137]57500
  71. 800 [139]bk[178]151[167]60
  72. 810 [153]"stopload":[141]290:[137]190
  73. 900 [132]15,a$,b$,c$,d$:[139][197](a$)[179]20[167][142]
  74. 910 [153]"loadsys?str$right$(NULL)(NULL) val(NULL)(NULL)(NULL)(NULL)":[153]"clr"a$" "b$" "c$" "d$
  75. 920 [153]"(NULL)ress sys (NULL)val(NULL)(NULL)(NULL)(NULL) waitclr to continue":[151]198,0
  76. 930 [161]x$:[139]x$[179][177][199](13)[167]930
  77. 940 [138]
  78. 57500 [151]780,1:[151]781,8:[151]782,0:[158]65466:[129]x[178]1[164][195](z$):[151]584[170]x,[198]([202](z$,x,1)):[130]:[151]780,[195](z$):[151]781,73:[151]782,2:[158]65469
  79. 57520 [151]780,0:[151]781,0:[151]782,32:[158]65493:[159]15,8,15:[141]900
  80. 57530 [138]
  81.